
program masslist;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  massa = array[1..100] of integer;

var
  a:^massa;
  mass: massa;
  i: integer;

begin
  new(a);
  For i:=1 to 100 do
    a^[i]:=mass[i];
  dispose(a);
end.


